INSERT INTO û przyk│ad instrukcji

W tym przyk│adzie wybierane s╣ wszystkie rekordy z hipotetycznej tabeli NowiKlienci, po czym s╣ one dodawane do tabeli Klienci. Poniewa┐ nie s╣ podane konkretne kolumny, nazwy kolumn tabeli, kt≤rej dotyczy instrukcja SELECT, musz╣ dok│adnie odpowiadaµ nazwom kolumn z tabeli, kt≤rej dotyczy INSERT INTO.

Sub InsertIntoX1()

    Dim dbs As Database

    ' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a

    ' na rzeczywist╣ bazΩ danych Northwind.

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Wybierz wszystkie rekordy z tabeli NowiKlienci

    ' i dodaj je do tabeli Klienci.

    dbs.Execute " INSERT INTO Klienci " _

        & "SELECT * " _

        & "FROM [NowyKlienci];"

    dbs.Close

End Sub

W tym przyk│adzie tworzony jest nowy rekord w tabeli Pracownicy.

Sub InsertIntoX2()

    Dim dbs As Database

    ' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a

    ' na rzeczywist╣ bazΩ danych Northwind.

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Utw≤rz nowy rekord w tabeli Pracownicy.

    ' ImiΩ brzmi Piotr, nazwisko - Czarniecki,

    ' za£ tytu│ - Sta┐ysta.

    dbs.Execute " INSERT INTO Pracownicy " _

        & "(ImiΩ,Nazwisko, Tytu│) VALUES " _

        & "('Piotr', 'Czarniecki', 'Sta┐ysta');"

    dbs.Close

End Sub